split_VS Subroutine

private elemental subroutine split_VS(string, word, set, separator, back)

Split a varying string into two verying strings

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(inout) :: string
type(varying_string), intent(out) :: word
type(varying_string), intent(in) :: set
type(varying_string), intent(out), optional :: separator
logical, intent(in), optional :: back

Source Code

  elemental subroutine split_VS (string, word, set, separator, back)

    type(varying_string), intent(inout)         :: string
    type(varying_string), intent(out)           :: word
    type(varying_string), intent(in)            :: set
    type(varying_string), intent(out), optional :: separator
    logical, intent(in), optional               :: back


    call split_CH(string, word, char(set), separator, back)

! Finish

    return

  end subroutine split_VS